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SUBROUTINE BUGCHK (LUN) 
Version: *v04-000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 
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C 
: 
C 
Ce 
Ce * | 
C* * 
8 Ce Py 
i ee 
® ® 
0011 C* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
boi6 C* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
1 C* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0014 C* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0015 C* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
Batg cs TRANSFERRED. * 
* 
gpg C* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
001 C* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
Base * CORPORATION. * 
® 
14 C* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
BoSz ~ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
® 
0025 Ce = 
Bose RTS pea Ae OR aR tite pa Fo NIE EE SNS ERR MRO Cs 
002 
0028 C 
94 C 
O30 : AUTHOR BRIAN PORTER CREATION DATE 29-JUL-1979 
O03¢ : Functional description: 
te) : Display for fatal,non-fatal and user bugchecks. 
oO 89 : Modified by: 
0038 C V03-002 SAR0066 Sharon A. Reynolds, 20-Jun-1983 
0039 C Changed the carriage control in the ‘format’ statements 
Boe : for use with ERF. 
Boe§ C v03-001 BP0001 Brian Porter, 17-AUG-1982 
004 C Removed cpu dependant register for operater requested 
pees C shutdowns. 
5 Cee 
0046 (-- 
0047 
Boas INCLUDE ‘SRC$:MSGHDR.FOR /NOLIST' 
o} 8 INCLUDE ‘SRC$:SYECOM.FOR /NOLIST‘ 
0e37 INCLUDE 'SRC$:MODES.FOR /NOLIST’ 
3f BYTE LUN | 
278 INTEGER I 
0279 INTEGER J | 
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INTEGER 

INTEGER*2 
INTEGER®4 
INTEGER®4 
INTEGER*®4 
INTEGER*®4 


LOGICAL *4 
EXTERNAL 


lLogical*4 
external 


REAL*8 
CHARACTER*73 
character*16 
CHARACTER*11 
CHARACTER®3 
CHARACTER*®4 
CHARACTER*®9 
CHARACTER*17 
CHARACTER*6 
CHARACTER®3 
CHARACTER®*5 
CHARACTER*31 
CHARACTER®*11 
CHARACTER®*11 
CHARACTER®*11 
EQUIVALENCE 
EQUIVALENCE 
EQUIVALENCE 
PARAMETER 


PARAMETER 


PARAMET 
PARAMET 


K 

MTH$I1AND 
FIELD 

FIELD! 
COMPRESSC 
BUGMSG_LENGTH 


SYSSASCTIM 
SYSSASCTIM 


sys$fao 
sys$fao 


TIME2 

BUGMSG_TEXT 
process_logical_name 
TIME1 


VIVAX_IC 
V2VAX=1C 
V3VAX—1C 
V4VAX=IC 
GPR(0:14) 

V1SYSREG_LABEL (0:7) 
V1SYSREG_COMENT (0:7) 


AST_MODES (0:3) 
VIASTLVL (0:3) 
EXCEPT_ENABLE (6:9) 


(MODES ,AST_MODES) 
(MODES ,VIASTLVL) 
(MODES ,EXCEPT_ENABLE) 


FATAL_BUG = 37 
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vv 
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0 a PARAMETER Re = 46 00 
8 PARAMETER R3 = 4 
p 9 PARAMETER RG = , 09 
0 PARAMETER RS = 
0341 PARAMETER Rg = 6 00 
9 : PARAMETER R7 = 64 00 
PARAMETER RB = 6 00 
0344 PARAMETER RQ = 00 
0345 PARAMETER R10 = 76 00 
0346 PARAMETER R11 = 80 00 
0347 PARAMETER AP = 84 00 
0348 PARAMETER FP = 88 4 
0349 PARAMETER SP = 
0530 PARAMETER PC = 96 oo 
O35¢ PARAMETER PSL = 100 4 
psec PARAMETER POBR = 104 00 
0355 PARAMETER POLR = 108 00 
0356 PARAMETER PIBR = 112 00 
0357 PARAMETER PILR = 116 o 
0359 PARAMETER SBR = 120 00 
0360 PARAMETER SLR = 124 ' 
0362 PARAMETER PCBB = 128 90 
0365 PARAMETER SCBB = 132 4 
0365 PARAMETER ASTLVL = 136 88 
0567 PARAMETER SISR = 140 $5 
0369 PARAMETER ICCS = 144 00 
0370 PARAMETER ICR = 148 a8 
057 PARAMETER TODR = 152 4 
0574 PARAMETER ACCS = 156 4 
0576 PARAMETER SBIFS = 160 4 
0378 PARAMETER TBDR = 160 4 
0380 PARAMETER SBISC = 164 3 
0382 PARAMETER CADR = 164 at 
0384 PARAMETER SBIMT = 168 4 
0386 PARAMETER MCESR = 168 3 
38s PARAMETER SBIER = 172 5 
359 PARAMETER CAER = 172 Og 
393 PARAMETER CMIER = 176 j 
398 , $9 
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PARAMETER SBITA = 176 

PARAMETER SILO = 180 

PARAMETER BUGCHK_CODE = 104 
PARAMETER PID = 108 

PARAMETER LNAME = 112 

DATA VISTK_PTR(O) = /"KSP"/ 

DATA -VISTK_PTR(1) = / "ESP*/ 

DATA VISTK_PTR(2) —/"SSP"/ 

DATA VISTK_PTR(3) = /*USP*/ 

DATA VISTK_PTR(4) = / “I SP*/ 

DATA VIVAX_ICCS(0) = /"RUN®'/ 

DATA V2VAX_ICCS(4) —/" TRANSFER®'/ 
DATA  V3VAX_ICCS(6) = /" INTERRUPT ENABLE*'"/ 
DATA - V3VAX_ICCS(7) —/"INTERRUPT®"/ 
DATA - V4VAX_ICCS(31) /ERROR®"/ 
DATA — GPR(O) /*RO */ 

DATA — GPR(1) 7R1 */ 

DATA — GPR(2) /*R2 */ 

DATA — GPR(3) 7*R3 */ 


4-56 Pa 
SRCIJBUGCHK.FOR;1 
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09 
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068, DATA GPR(4) 7*R4 '/ 
8 § DATA GPR(5) /*RS */ 
0285 DATA GPR(6) 7*R6 '/ 
089 DATA GPR(7) /*R7? ‘/ 
0458 
0459 DATA GPR(8) /*R8 '/ 
0460 
0461 DATA GPR(9) 7*RO '/ 
Bree 
046 DATA GPR(10) /*R10'/ 
0464 
0465 DATA GPR(11) /*RI1'/ 
0466 
0467 DATA GPR(12) /*AP ‘/ 
0468 
+4 DATA GPR(13) re? “7 
72 DATA GPR(14) /*SP ‘/ 
7 
r DATA VISYSREG_LABEL(0)/*POBR*'/ 
78 DATA V1ISYSREG_LABEL(1)/'POLR®*'/ 
A DATA VISYSREG_LABEL(2)/"P1BR*'/ 


DATA VISYSREG_LABEL(3)/'PILR*'/ 
DATA VISYSREG_LABEL (4)/"SBR*'/ 
DATA VISYSREG_LABEL(5)/"SLR*'/ 
DATA VISYSREG_LABEL (6)/"PCBB*'/ 
DATA VISYSREG_LABEL(7)/*SCBB*'/ 
| 
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DATA VISYSREG_COMENT(0)/"PO PTE BASE (VIRT ADDR)*'/ 
DATA VISYSREG_COMENT(1)/"TOTAL PO PAGES*'/ 

DATA VISYSREG_COMENT(2)/°P1 PTE BASE (VIRT ADDR)*'/ 
DATA V1ISYSREG_COMENT(3)/"TOTAL NON-EXISTENT P1 PAGES*'/ 
DATA VISYSREG_COMENT(4)/"SYSTEM PTE BASE (PHY ADDR)*'/ 

DATA VISYSREG_COMENT(5)/"TOTAL PAGES ‘"SYSTEM'’ VIRT MEM*'/ 
DATA VISYSREG_COMENT(6)/"PCB BASE (PHY ADDR)*'/ 

DATA VISYSREG_COMENT(7)/"SCB BASE (PHY ADDR)*'/ 
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10 


12 


CALL FRCTOF (LUN) 

call header (lun) 

1=0 

IF (EMBSW_HD_ENTRY .EQ. '25°X) THEN 

call logger (lun,"FATAL BUGCHECK') 

I = 140 

ELSE IF (EMBSW_HD_ENTRY .EQ. ‘28'°X) THEN 
call logger (lun,*NON-FATAL BUGCHECK') 
ELSE IF (EMBSW_HD_ENTRY .EQ. ‘70°X) THEN 
call logger (lun,"USER BUGCHECK') 

ENDIF 


CALL CSTRING (EMB(1+BUGCHK_CODE) , ZREF (BUGMSG_TEXT) ,BUGMSG_LENGTH) 
call Linchk (lun,2) 
if (bugmsg_length .ne. 0) then 


WRITE(LUN,10) (BUGMSG_TEXT(K:K),K = 1,BUGMSG_LENGTH) 
FORMAT(/* ',<BUGMSG_LENGTH>A1) 


else 

WRITE(LUN,12) (EMB(I1+BUGCHK_CODE+K),K = 1,0,-1) 
FORMAT(/" ",18, BUGCHECK CODE',128,222.2) 

endif 

if 


( 
1 (emb$w_hd_entry .eq. '25'x 
1 .and 
emb(244) .ne. '74"x) 
-or. 
’ emb$w_hd_entry .eq. ‘28'x 
-or. 
1 emb$w_hd_entry .eq. ‘70'x 
1) then 
if (sys$fao (°!AF* process. logical name. Svat (15), 
1 Zref(emb(i+inamess)) then 
CALL LINCHK (LUN,2) 
WRITE(LUN,5) process_logical_name 
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FORMAT(/" *,t8,*PROCESS NAME',t24,a) 
endif 


CALL LINCHK (LUN,2) 

WRITE LUN, 20) (EMB(I+PID+K) ,K = 3 Q.5 
FORMAT(/" ',t8, PROCESS ID’. t24,a8 <2 
1=0 

CALL LINCHK (LUN,2) 


WRITE CLUN, 25)_ (EMB(I+PC+K) ,K 
FORMAT(/" ',T8, ERROR PC’, £54, 435° 55”? 


CALL VAXPSL (LUN,EMB(I+PSL)) 
CALL LINCHK (LUN,4) 


write(lun, 27) ‘STACK POINTERS‘ 
formact(/' ‘a,/) 


write lun 750) (vistk ptr(j/4), tgabthepet+joh), k = 3,0,-1),j = 0,19,4) 
format(' °,5(a3," ',2z2.2,' *)) 


CALL LINCHK (LUN,6) 

write(lun,27) "GENERAL REGISTERS’ 

Tye outgeg) Re germe eCemb(r0+it+jek+(l*20)),k = 3,0,-1), 
tormatcsi*'* Ska, ‘ 82.2." ),00) 

IF (EMBSW_HD_ENTRY .£Q. FATAL_BUG) I = 140 

CALL LINCHK (LUN,2) 

IF (EMBSW_HD_ENTRY .£Q. FATAL_BUG) THEN 

1=0 

CALL LINCHK (LUN,3) 


WAI TES. 290) 
FORMAT(/* *, "SYSTEM REGISTERS’ ,/) 


DO 300,J = POBR,SCBB,4 

CALL LINCHK (LUN,2) 

FIELD = (J-POBR)/4 

ets S74 295) yA ST eRes.. LABEL (FIELD), (EMB(I+J+#K),K = 3,0,-1), 


6c ENTCFIE 
TBeAC <COMP RE SSC (VISYSREG_LABEL(FIELD))>,124,422.2./, 
‘ OTnO. FL AS (V1SYSREG_COMENT (FIELD) )>) 


Pa 
CIBUGCHK.FOR; 1 
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300 CONTINUE 
CALL LINCHK (LUN,2) 


WRITE(LUN, 32 ) (EMBCI+ASTLVL#K) ,K = 3,0,-1) 
323 FORMAT(' '(18,"ASTLVL',124,422.0) 


FIELD = LIBSEXTZV(0,3,EMB(1+ASTLVL)) 
IF (FIELD .LE. 3) THEN 
WRITE(LUN, 325) VIASTLY 
FORMAT(" 

1 eMAODE ashe PENDING’) 
ELSE IF (FIELD .€0. 4) THEN 


et BASS 327) 
327 FORMAT(* °,T40,"NO AST''S PENDING’) 
ENDIF 


EL aH 


L(FI 
325 RESSC (VIASTLVL(FIELD))>, 


CALL LINCHK (LUN,1) 


WRITE (LUN, 330) (EMB(I+SISR+K) ,K = 3,0,- 
330 FORMAT(' §,18,"SISR',124,4Z2.2) 


DO 340,J = 1,15 
FIELD = LIBSEXTZV(J,1,EMB(1+SISR)) 
IF (FIELD .NE. 0) THEN 
CALL LINCHK (LUN,1) 
335 FORMATC? 520," ‘PENDING INTERRUPT AT LEVEL ',21) 
ENDIF 
340 CONTINUE 
FIELD = LIBSEXTZV(16,5,EMB(1+SISR)) 
CALL LINCHK (LUN,1) 


ere 343) FIELD 
343 FORMAT(* °,140,"INTERRUPT REQUEST ACTIVE = ',12,".") 


CALL LINCHK (LUN,1) 


WRITE CL N,345) (EMB(I+ICCS#K),K = 3,0,-1) 
345 ORMATC? 18, "ICCS', THE: 422.8) 


CALL OUTPUT (LUN,EMB(I+ICCS) ,VIVAX_ICCS,0,0,0,°0") 
CALL OUTPUT (LUN,EMB(I+ICCS) ,V2VAX_ICCS,4,4,4,'0") 
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79 CALL OUTPUT (LUN, EMB(I+ICCS) ,V3VAX_ICCS,6,6,7,'0") 
1 CALL OUTPUT (LUN,EMB(I+ICCS) ,V4VAX_ICCS,31,31,31,'0") 
§ CALL LINCHK (LUN,2) 
85 WRITE LUN, 350), (EMB(I$1CRSK) ,K 


350 FORMAT(' ",18,"ICR',124,4Z2. sx 4, = 126° CINTERVAL COUNT REGISTER") 
CALL LINCHK (LUN,1) 


WRITE(LUN,355) (EMB(I+TODR+K),K = 3,0,- 
355 FORMATS! oF »'TODR', 124,422.02) 


069 IF (CP_11780) THEN 
0695 CALL LINCHK (LUN,3) 


069 et SS 400) 
0698 400 FORMAT(/* *,*CPU-SPECIFIC REGISTERS',/) 


0699 

0700 CALL ACCS_780 (LUN,EMB(I+ACCS)) 

070 CALL SBI_FAULTREG (LUN,EMB(I+SBIFS)) 
0704 CALL SBI_COMPARATOR (LUN,EMB(I+SBISC)) 
CALL SBI_MAINTENANCE (LUN,EMB(I+SBIMT)) 
0708 CALL SBI_ERROR (LUN,EMB<!+SBIER)) 


*JIAND' IS CALLED DIRE 


CTLY TO FOOL THE FORTRAN eae INTO 
PASSING MORE THAN ONE ELE” "EMB 


“ENT OF THE BYTE ARRAY 


oO 

~N 

— 
AOOO 


071 


FIELD = MTHSJIAND(EMB(I+SBISC),*A0000000' x) 
FIELD1 = MTHSJIAND(EMB(1+SBIFS),*10000'X) 
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0714 
gris FIELD = MTH$JIAND(EMB(I+SBIER),'1000'X) 
ta t4 IF (FIELD .NE. 0) THEN 
0719 CALL SBI_TIMEOUT (LUN, EM&(I+SBITA)) 
9720 ELSE 
a4 CALL LINCHK (LUN,1) 

724 WRITE (LUN, 410) (Ema (1 +SBI TAtK) ,K = 3,0,-1) 
0725 = 410 FORMAT(’ °,18,"SBITA',124,422.0) 
0 6 ENDIF 
oo 

9 C JIAND' IS CALLED DIRECTLY TO FOOL THE tg COMPILER INTO 

: ; PASSING MORE THAN ONE ELEMENT OF THE BYTE ARRAY ‘EMB’. 
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07 
oe IF (FIELD .NE. 0 .OR. FIELD1 .NE. 0) THEN 
0739 CALL LINCHK (LUN,3) 
O20 L LUN,3 
0741 WRITE (LUN,420) 
O7e8 420 FORMAT(/" *,"SBI SILO LOCKED, DETAILED SUMMARY',/) 
orte DO 430,/J = 0,60,4 
ores CALL SBI_SILO (LUN, EMB(I+SILO+J)) 
ies 430 CON1 INUE 
0749 ENDIF 
0750 
0751 ELSE IF (CP_11750) THEN 
O7 2g 
075 C 
0754 c The cpu registers are not output for the 11/750 because 
0755 c they are only valid after a machine check. 
0756 C 
0757 
0758 ENDIF 
0759 ENDIF 
0760 endif 
0761 
2454 RETURN 
076 
0764 
0765 
0766 
0767 ENTRY B_BUGCHK (LUN) 
0768 
0769 
0770 
0771 call header (lun) 
077 
077 1=0 
0774 
346) IF (EMBSW_HD_ENTRY .EQ. °25°X) THEN 
1Aks call logger (lun,"FATAL BUGCHECK') 

44 I = 140 
344 ELSE IF (EMBSW_HD_ENTRY .EQ. ‘28'X) THEN 
oraz call logger (lun,"NON-FATAL BUGCHECK') 
44 $4 ELSE IF (EMBSW_HD_ENTRY .EQ. ‘70'X) THEN 
oFBS call logger (lun, "USER BUGCHECK') 

788 ENDIF 

13 

CALL CSTRING (EMB(1+*BUGCHK_CODE) ,ZREF (BUGMSG_TEXT) ,BUGMSG_LENGTH) 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee 
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BUGCHK 


0793 IF (BUGMSG_LENGTH .NE. 0) THEN 

0795 CALL LINCHK (LUN,2) 

079 WRITECLUN,10) (BUGMSG_TEXT(K:K),K = 1,BUGMSG_LENGTH) 
e 


0800 CALL LINCHK (LUN,2) 
080 er lg te. te) (EMB(I+BUGCHK_CODE+K) ,K = 1,0,-1) 


48 RETURN 
0807 END 


Name Bytes Attributes 
0 SCODE 2668 PIC CON REL LCL SHR EXE RD NOWRT LONG 
1 SPDATA 708 PIC CON REL LCL SHR NOEXE RD NOWRT LONG 
¢ SLOCAL 1918 PIC CON REL LCL NOSHR NOEXE RD WRT QUAD 
MB 1 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
4 SYECOM 44 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
5 E 55 PIC OVR REL GBL SHR NOEXE RD WRT LONG 
Total Space Allocated 5203 


ENTRY POINTS 


Address Type Name Address Type Name 
0-00000000 BUGCHK 0-000008D5 B_BUGCHK 
VARIABLES 
Address Type Name Address Type Name 


2-00000214 1*4 BUGMSG LENGTH 2-00000191 CHAR BUGMSG_TEXT 
4-00000012 L*1 CP_1175 4-00000011 L*1 117 
4-00000013 L*1 CP~11722 4- ts Des L*4 CRYPTK_FLAG 
4-0000000D I[*4 CHAR : 00 one 1*4 $L_Ab_ 
3-00000004 “¢ EMBSW_HD_ENTRY -00 E sé EMBSW-HD-ERRSEG 
4 1E L*l END VALUE 4-00 1D Lei EOF FCA 
é- OC I*4 FIELD - $ 10 I*4 FIECD 
L*4 FORMS - 0 : I*4 |] 

§ 04 Ieh J -0000 I*4 kK 

1 I*e4 L 4- C L*l LINES 
4 27 I*4 LSTL AP- 4a L*1 LUN 
4-0000001F I*4 MAILBOX_CHANNEL 2-00 ire I*2 MTHSIIAND 
4-0000002B CHAR OPTION 4-00000008 L*4 PRINTER 
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4-0000001C 


ARRAYS 


LABELS 


FUNCTIONS AND 
Type Name 


ACCS_780 


FRCTOF 


LINCHK 
PuT 


0G1CAL_NAME 
7E 


Name 
AST_MODES 
EMB$Q_HD_TIME 
GPR ENABLE 
MODES 
VIASTUVL 


ViST 
VISYSREG™ COMENT 
VISYSR EG-LABEL 


Address’ Label 


1 
ess 3 BES 40° 
1 


SUBROUTINES REFERENCED 


OUTPU 
SBI on an Tees 


SBI- TIMEOUT 


nm 
SPOOLS oe 


APEOLOONE MUMS Ons 


Ww 


Address Label 


COMPRESSC 
HEADER 

ta 
SBI COMPARATOR 
$B! MAINTENANCE 
SYSSFAO 
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VOLURE™ OUTPUT 


DISKSVMSMASTER: 
Label Address 
1-000000E4 
a 
® at 
1-00000287 
Type Name 
CSTRING 
1*4 LIBSEXTZV 
I*4 MTHSJIAND 
SBI_ERROR 
SBI SILO 
VAXPSL 


VAX=11_ FORTRAN V3.4- P 
ERF .SRCJBUGCHK.FOR; 1 
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COMMAND QUALIFIERS 
FORTRAN /LIS=LIS$:B. CHK/OBJ=0BJ$:BUGCHK MSRC$:BUGCHK 


/CHECK= (NOBOUNDS OVERFLOW NOUNDERF LOW) 
/DEBUG= (NOS YMBOL§ TRACE 

/STANDARD= (NOS YNTAX Sat ts FOR m 

/SHOW= (NOPREPR SYNTAX NOSOURCE FORM 

/F77 /NOG_FLOATING 714 SDPTIATIE. /WARNINGS /NOD LINES /NOCROSS_REFERENCE /NOMACHINE_CODE /CONTINUATIONS=19 


COMPILATION STATISTICS 


un Time 8.53 seconds 
ra Time: s32'5 seconds 
Page Faults: 35 
Dynamic Memory: 243 pages 
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